home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / LOGO / H282.ZIP / MSWLOGO.ZIP / EXAMPLES.ZIP / PLOT < prev    next >
Encoding:
Text File  |  1992-09-19  |  822 b   |  43 lines
  1. TO DRAW :X
  2. IF XCOR > :XRANGE [STOP]
  3. SETPOS LIST (XCOR+:DELTAX) (:YRANGE*FF :MAXHARM)
  4. DRAW :X+:DELTAX
  5. END
  6.  
  7. TO F :NUM
  8. OP (RADSIN :COEFF*:NUM*:X) / :NUM
  9. END
  10.  
  11. TO FF :NUM
  12. IF :NUM < 1 [OP 0]
  13. OP (F :NUM)+(FF :NUM-:SKIP)
  14. END
  15.  
  16. TO KEYWORD :INPUTS :DEFAULTS
  17. SETUP.VALUES :DEFAULTS
  18. IF WORDP :INPUTS [MAKE FIRST :DEFAULTS :INPUTS STOP]
  19. SETUP.VALUES :INPUTS
  20. END
  21.  
  22. TO PLOT :INPUTS
  23. KEYWORD :INPUTS [MAXHARM 5 DELTAX 3 YRANGE 75 CYCLES 1 XRANGE 230 SKIP 2]
  24. MAKE "COEFF :CYCLES*(RADARCTAN -1 0)/:XRANGE
  25. SS CS HT PU
  26. SETPOS LIST (-:XRANGE) 0
  27. PD
  28. DRAW :DELTAX
  29. END
  30.  
  31. TO SETUP.SIMPLE :LIST
  32. MAKE FIRST :DEFAULTS FIRST :LIST
  33. SETUP.VALUES BF :LIST
  34. END
  35.  
  36. TO SETUP.VALUES :LIST
  37. IF EMPTYP :LIST [STOP]
  38. IF NUMBERP FIRST :LIST [SETUP.SIMPLE :LIST STOP]
  39. MAKE FIRST :LIST FIRST BF :LIST
  40. SETUP.VALUES BF BF :LIST
  41. END
  42.  
  43.